﻿''' <summary>
''' 体积
''' </summary>
''' <remarks></remarks>
<Serializable()> Public Class Volume

    ''' <summary>
    ''' 散发率[g/s]
    ''' </summary>
    ''' <remarks></remarks>
    Private m_EmissRate As Double = 20 '散发率[g/s]
    ''' <summary>
    ''' 源的释放高度[M]
    ''' </summary>
    ''' <remarks></remarks>
    Private m_SReleHigh As Double = 100 '源的释放高度[M]
    ''' <summary>
    ''' 最初的侧面尺度[M]
    ''' </summary>
    ''' <remarks></remarks>
    Private m_IniLatDime As Double = 20 '最初的侧面尺度[M]
    ''' <summary>
    ''' 最初的垂直尺度[M]
    ''' </summary>
    ''' <remarks></remarks>
    Private m_IniVerDime As Double = 20 '最初的垂直尺度[M]
    ''' <summary>
    ''' 接收的海拔高度[M]
    ''' </summary>
    ''' <remarks></remarks>
    Private m_RecepHigh As Double = 0 '接收的海拔高度[M]

    Private m_ComboxUnitOption As Integer = 0 '单位的选择默认为0
    ''' <summary>
    ''' 单位的选择默认为0
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property ComboxUnitOption() As Integer
        Get
            Return m_ComboxUnitOption
        End Get
        Set(ByVal value As Integer)
            m_ComboxUnitOption = value
        End Set
    End Property

    ''' <summary>
    ''' 散发率[g/s]
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property EmissRate() As Double
        Get
            Return m_EmissRate
        End Get
        Set(ByVal value As Double)
            m_EmissRate = value
        End Set
    End Property
    ''' <summary>
    ''' 源的释放高度[M]
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property SReleHigh() As Double
        Get
            Return m_SReleHigh
        End Get
        Set(ByVal value As Double)
            m_SReleHigh = value
        End Set
    End Property
    ''' <summary>
    ''' 最初的侧面尺度[M]
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property IniLatDime() As Double
        Get
            Return m_IniLatDime
        End Get
        Set(ByVal value As Double)
            m_IniLatDime = value
        End Set
    End Property
    ''' <summary>
    ''' 最初的垂直尺度[M]
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property IniVerDime() As Double
        Get
            Return m_IniVerDime
        End Get
        Set(ByVal value As Double)
            m_IniVerDime = value
        End Set
    End Property
    ''' <summary>
    ''' 接收的海拔高度[M]
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property RecepHigh() As Double
        Get
            Return m_RecepHigh
        End Get
        Set(ByVal value As Double)
            m_RecepHigh = value
        End Set
    End Property
    ''' <summary>
    ''' 体源的字符串处理
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function Volume()
        Dim StrV As String = ""
        If Me.ComboxUnitOption = 1 Then
            StrV = Me.EmissRate / 3.6 & vbCrLf & Me.SReleHigh & vbCrLf & Me.IniLatDime & vbCrLf & Me.IniVerDime & vbCrLf & Me.RecepHigh & vbCrLf
        Else
            StrV = Me.EmissRate & vbCrLf & Me.SReleHigh & vbCrLf & Me.IniLatDime & vbCrLf & Me.IniVerDime & vbCrLf & Me.RecepHigh & vbCrLf
        End If
        Return StrV
    End Function
End Class
